ANnnnno 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR =RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


AHA tt tt Ht tt SH 
a | LLL) 
ee ee ee Le) 


L 
LLLLLLLLLLLELLLL 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F ILE**1D**BASENDGSB 


| 


[+ os *) +4 
z Ae 
@ ate 
CZonnaS Be 
DHDODRDDHoHHOGD 
nn ANIM 
mn NNMNM 
nw nw nn 
wn nn nn 
mn nn nn 
ww nn nn 
nw an nw 
mn nn nw 
NNN nn 
NNW an 
uso po PT 
uv “VeI9I9o 
Ot) ovo oo 
uso ovo ovo 
ovo ovo ovo 
uso oo “oo 
ovo oY 
uo oo 
VVV IV VV 9VU9NNUN 
VVIGVIVNV9NUYUNU 
anaoanaaaaaa 
Saoaoocaanaaaa 
aa aa 
aa Oa 
aa BQ 
aa aa 
aa aa 
aa aa 
eocoocoacaacacaacas 
aeEoaoaooaoaoacoaacaacaa 
22222222222 222 
SSSSSSSS SES SSSE 
22 
22 
22 
22 
22222 222222222 
22222222222 222 
ww wud 
ww wu 
[vUTVY) [vey ve} wus 
uw wow usu 
wou wu wow 
wou [vUTYY) ww 
peyrY) wou [vuTv) 
wou [vuryy) usu 


Abs ha kk 
hd a kk a 


wn MMW 
“wn Mwnnm 
wn mn mn 
ww nw nn 
wn ww wn 
ww mn own 
mw nw ww 
mw mw ww 
Mnnwn nw 
Mmnn nn 


222222222222 


Ea: 


222222222222 


LLLLLLLLLL 
LLLLLLLLLL 


qc“ 


a ee “tebe 90:8 :8e HB XSaTe See laasennése 6$2;1 Page 


MODULE BASSEND_GSB ( 
gPEnt = '1-002' File: BASENDGSB.B32 


BEGIN 


lee RRA ERA AAA AAHHAAAAEAAAHAEKAAAATA HATA Heee AAA AHeRReeeAIeeeATAAe eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL Qu PMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'* THIS i "trthe i. eine UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF te itt AND WITH THE 
t® INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:® OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOF TWARE IS HEREBY 


® 
oT 
& 
® 
cs 
® 
® 
® 
x 
® 
ie TRANSFERRED. ‘ 
® 
x 
* 
— 
® 
* 
a 
® 
® 
* 


Oooo 


tt THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ oORPORAT ithe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 

H IS NOT SUPPLIED BY DIGITAL. 
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i 


lee 
' FACILITY: BASIC-PLUS-2 Frame Support 
i ABSTRACT: 


' 

1 

' 

1 

i 

: These routines set up and tear down frames for SA EsPLUE= “2. 

! Frames are used for main routines, external functio 

: external subroutines, internal functions (both DEFS. she DEF *s) 
internal subroutines (GOSUBs) and condition handlers. 
1 

n 

‘ 

i 

' 

i 

! 

1 

' 


i ENVIRONMENT: VAX-11 user mode 
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OOOO NEW 0 OONOA UE WIN OOOO NEW — OVOONOUS 
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i i tt it hs ss st 4 ITO 
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904 i AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 

O04 i MODIFIED BY: 

bod i 1-001 = Original. 

ane ' 1-002 - Change “Bass to BSF$ prefix for BASIC stack frame. JBS 08-FEB-1979 
008 : 

005 ' <BLF /PAGE> 


So 


m 6 

ASSEND_GSB 16-Sep-1984 00:22: AX-11 Bliss-32 V4.0-74 Pa 
ti + 197308- 1382 00:82:32 BASRTL.SRCIBASENDGSB.B 2:1 - (28 
3 3 1! . 
3 (54 3g 1 i SWITCHES: 
; @ a 
; ; a3 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

: §9 058 1! 

; 60 be 1 | LINKAGES: 

abo 4 ee 
; 6 064 1 LINKA 
> (64 063 1 BASSINIT_LINK = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2) ' 

; «65 064 1 AL (BSFSA_MAJOR_STG = 11, BSFEA_MINOR_ST6 ="10, BSFSA_TEMP_STG = 9) 
nae 
> 69 00s 1 | TABLE OF CONTENTS: 
: 0070 1 
.; 2 0071 1 FORWARD ROUTINE 
ee, d07¢ 1 BASSEND_GSB_R8 : NOVALUE BASSINIT_LINK; ! end GOSUB 
: 8 bore 1! 
; 76 0075 1 ! INCLUDE FILES: 
ho BAL 
: 19 0078 REQUIRE "RTILIN:RTLPSECT'; ' macros for defing psects 
; $1 O174 REQUIRE "RTLIN:BASFRAME.REQ'; ! Define frame structure 
.-§ 0378 1! 
3; BG 0379 1 | MACROS: 
; «685 0380 1: 
Gio ie 
>: 88 6388 1 | EQUATED SYMBOLS: 
> 689 0384 1: 
; b3Be | | sate 
; 3 0387 PSECTS: 
; 34 0389 DECLARE _PSECTS (BAS); ! Declare psects for BAS$ facility 
: % O38 | OWN STORAGE: 
; 98 0388 NONE 
> 100 §398 1 | EXTERNAL REFERENCES: 
: 103 399 |! 
: 198 398 1 EXTERNAL ROUTINE 
3 104 99 1 BASS$STOP : NOVALUE; ! signals error 

3; 105 400 1 
; 106 401 1 !¢ ; 
.. % ht: 1 ! The following are the error codes used in this module. 

; 108 4 1 Ie 
$ 109 0404 1 


—_— —— A 


8 


5 ! EXTERNA 
5 | BAS 


&xe 


ITERA 
RETwI 


T6os 


: UNSIGNED (8); 


N 0 


erSep= 1986 19:86:86 EBASRTLSR 


! RETURN without GOSUB 


cis 


32.V 
ASE NDGSB. 8 


188251 


Be Be Oe Oe wy Be Se Se Be Ge Be Se Ge Ge He Se Se Se Se Se Se Se Se Se Se Oe Se Se Ge Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Oe Se Ge Se Se Se Se Se Se ee 


DONA WE WN $9 OBNOA VE WN $0 ODNOAUEWN $O OOBNOUSWIN -OOONOUE 


Wn 


ee A te eee ees tt tat ta tt A 8 


o 
w 


SIF 


a a a a dd ad nd od dt 


Oo 
oo 


i all is ok, return to the compiled code, which 


will issue a 
nstruction to return to the caller of BASSINI . 


su 
T_GOSUB 


7 
1b-s6 -1984 00:22: AX-11 Bliss-32 v4.0-74 
12-308- 1984 90:82:32 EBASRTL SRe BASENDGSB.832;1 
} GLOBAL ROUTINE BASSEND_GSB_R8 ! end of GOSUB frame 
09 : NOVALUE BASSINIT“LINR = 
11 1 te 
i i : FUNCTIONAL DESCRIPTION: 
461! Check a BASIC-PLUS-2 RETURN statement to be sure that 
7 24 the return is being made from a GOSUB. This is needed 
1 : } since GOSUB has no lexical scope. 
18 ; FORMAL PARAMETERS: 
a ii 185 
: IMPLICIT INPUTS: 
é The frame, as set up by BASSINIT_GSB_R8. 
1 ' IMPLICIT OUTPUTS: 
0657 1 | 
CBS ee 
0430 1 ' ROUTINE VALUE: 
0431 1! 
Bh om 
0434 1 | COMPLETION CODES: 
0435 1! 
O45 ! NONE 
38 1! SIDE EFFECTS: 
0439 1: 
0440 1! May signal an error 
0441 1! 
Rees 1 leo 
0443 1 
0444 BEGIN 
0445 
0446 BUILTIN 
44 FP, 
0448 SP; 
0449 
50 REGISTER 
7 FMP : REF BLOCK (CO, BYTE] FIELD (BSFSFCD); 
5 '¢ 
54 ' Give an error message if this RETURN does not correspond to 
55 ' @ GOSUB. 
36 - 
3 FMP = FP; 
33 IF (.FMP CBSF$B_PROC_CODE] NEQ BSFSK_PROC_GOSB) THEN BASSSSTOP (BASSK_RETWITGOS); 
61 '¢ 
' 
6¢ : 
! 


3 
ye 


Page 


ee 


ess ye. 


171 0465 1 END; 
50 5D 
06 E5 cB 
7E 00G 8F 
000000006 00 01 
Routine Size: 21 bytes, Routine Base: _BASSCODE + 
17 04 1 
17 oce? 1 END 
174 0468 1 
175 0469 0 ELUDOM 
PSECT SUMMARY 
Name Bytes 
_BASSCODE 21 NOVEC,NOWRT, 


Size: 2° ‘.° data bytes 
Run Time: 

Elapsed Time: 

Lines/CPU Min: 

Lexemes/CPU-Min: 390 

Memo 


rv Used: 29 pages 
Compilation Complete 


Sep-1986 11:56:56 


AX-11 Bliss-32 V4.0-74 
BASRTL.SRCJBASENDGSB.B32; 1 


tof BASSEND_GSB_R8 


TITLE 
- IDENT 
~EXTRN 
-PSECT 
DO 00000 BASSEND ~GSB RE 
91 0000 
13 44 BEQL 
9A 00009 MOVZBL 
FB 00000 CALLS 
05 00014 1$ $B 
0000 
Attributes 
RD, EXE, SHR, LCL, 


COMMAND QUALIFIERS 
patentee cer tine tence? seceramteterureme ste MSRC$:BASENDGSB/UPDATE=(ENH$: BASENDGSB 


REL, CON, 


east ND_GSB 
\1=002\" 


BASSSSTOP, BASSK_RETWITGOS 
_BASSCODE.NOWRT, SHR, PIC,2 


"FP, FMP 
(FMP), a6 


anem RETWITGOS, =(SP) 


. BASS$STOP 


PIC, ALIGN(2) 
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